home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Purity / Purity #21 (1994-01-12)(Diesel)(DE)[WB].zip / Purity #21 (1994-01-12)(Diesel)(DE)[WB].adf / rAm / ram.p < prev    next >
Text File  |  1994-01-12  |  429b  |  15 lines
  1. program RAM;    {nicht neu,schön und kurz}
  2.         { nur fürs CLI           }
  3. uses exec;
  4. var x,y:long;
  5. begin
  6.   x:=AvailMem(memf_chip);
  7.   y:=AvailMem(memf_fast);
  8.   writeln(chr($9b),'32mCHIP: ', chr($9b),'0m',x,' ',    {Farbspielerein}
  9.           chr($9b),'32mFAST: ', chr($9b),'0m',y,' ',
  10.           chr($9b),'32mTOTAL: ',chr($9b),'0m',x+y,' ',
  11.           chr($9b),'33;46m',    chr(169),' by F.Zühlsdorff',
  12.           chr($9b),'0;40m');
  13. end.
  14.  
  15.